(describe-simplify-lib-file-name): Fix regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbb9692b6b255c6c9fa85b15123d8d01d4aab4c3..2dcc50d873acc5d9dd186e92ed1221c21bbf09aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-29  Romain Francoise  <romain@orebokech.com>
+
+       * help-fns.el (describe-simplify-lib-file-name): Fix regexp.
+
 2005-10-29  Ken Manheimer  <ken.manheimer@gmail.com>
 
        * pgg-gpg.el

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index cffe313fd6c0a6204745d27575f48df0080dcc42..88f32003867029cf427709d81604798afac97ff4 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -291,7 +291,7 @@ face (according to `face-differs-from-default-p')."
        ;; Now convert that back to a file name and see if we get
        ;; the original one.  If so, they are equivalent.
        (if (equal file (locate-file libname load-path '("")))
-           (if (string-match "[.]elc?\\'" libname)
+           (if (string-match "[.]elc\\'" libname)
                (substring libname 0 -1)
              libname)
          file))))